home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Network Support Library
/
RoseWare - Network Support Library.iso
/
mhs
/
ttnnet.net
< prev
next >
Wrap
Text File
|
1992-09-24
|
648b
|
41 lines
\disp |
TTNNET Network access routine
|
\bel
\idle 2
\slep 2
\wait 150 "@" 1 0
\cr
\wait 150 "@" 1 0
\cr
\wait 150 "@" 0 20
\:1
\$4 ,\$1\cr
\waitcase 2 80 "@" "PASSWORD=" 0 2 0
\$4 ,\$1\cr
\waitcase 2 80 "@" "PASSWORD=" 0 2 0
\$4 ,\$1\cr
\waitcase 2 80 "@" "PASSWORD=" 20 0 20
\:2
\idle 5
\$2\cr
\waitcase 2 80 "@" "CONNECTED" 0 10 0
\$4 ,\$1\cr
\wait 30 "PASSWORD=" 0 20
\$2\cr
\waitcase 2 80 "@" "CONNECTED" 0 10 0
\$4 ,\$1\cr
\wait 30 "PASSWORD=" 0 20
\$2\cr
\:10
\disp "
Connected to remote host
Please wait ...
"
\ret 1
\:20
\disp "Connection to remote host failed. Check network ID.
"
\ret 0
\end